(iso-translate-conventions): Use case-dependent search and don't alter case.

diff --git a/lisp/international/iso-cvt.el b/lisp/international/iso-cvt.el
index 4e8b69f3db1657eff10c98d971495d1dbd8dd2c6..68a72ea88af72322eddf2af6af5f82678699d035 100644 (file)
--- a/lisp/international/iso-cvt.el
+++ b/lisp/international/iso-cvt.el
@@ -90,12 +90,13 @@
     (widen)
     (goto-char (point-min))
     (let ((work-tab trans-tab)
-         (buffer-read-only nil))
+         (buffer-read-only nil)
+         (case-fold-search nil))
       (while work-tab
        (save-excursion
          (let ((trans-this (car work-tab)))
            (while (re-search-forward (car trans-this) nil t)
-             (replace-match (car (cdr trans-this)) nil nil)))
+             (replace-match (car (cdr trans-this)) t nil)))
          (setq work-tab (cdr work-tab)))))))
 
 (defun iso-spanish ()